Shareware Extravaganza - Disc 4/Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso/cad/grperf.zip/GRAPH1.LSP

Text File | 1990-10-05 | 1KB | 2 lines

(DEFUN Q%&(Q?Q)(ABS(-(APPLY(quote MAX)Q?Q)(APPLY(quote MIN)Q?Q))))(DEFUN Q?1(Q?Q / Q#J Qj1)(SETQ Q#J(APPLY(quote MAX)Q?Q))(SETQ Qj1(FIX Q#J))(-(COND((ZEROP(- Q#J Qj1))Qj1)(T(1+ Qj1)))(FIX(APPLY(quote MIN)Q?Q))))(DEFUN Q@1(QQ1)(+(APPLY(quote MIN)Ql1)(*(- QQ1 Q&1)Q11)))(DEFUN Q#1(Q%Q QQ1)(SETQ Q%Q(ENTGET Q%Q))(SETQ Q01(CONS 11(CONS(Q@1 QQ1)(CDDR(ASSOC 11 Q%Q)))))(SETQ Q$1(CONS 13(CONS(Q@1 QQ1)(CDDR(ASSOC 13 Q%Q)))))(ENTMOD(QO1(LIST Q01 Q$1)Q%Q)))(SETQ Q|1(quote ("B0""B1""B2""B3""B4""B5""B6""B7""B8""B9""A0""A1""A2""A3""A4""A5""A6""A7""A8""A9")))(DEFUN Q#Q(Q0Q Q?Q)(CDR(ASSOC Q0Q Q?Q)))(DEFUN QO1(Q%1 Q?# / Qj#)(COND((NULL Q%1)Q?#)(T(QO1(CDR Q%1)(COND((SETQ Qj#(ASSOC(CAAR Q%1)Q?#))(SUBST(CAR Q%1)Qj# Q?#))(T(CONS(CAR Q%1)Q?#)))))))(DEFUN Q?@(Q?Q)(/(APPLY(quote +)Q?Q)(FLOAT(LENGTH Q?Q))))(DEFUN BARGRAPH()(COND((NOT(AND Q$@ Q0@))(PRINC"\nNo test/benchmark results found to graph."))(T(SETQ Q@#"gr1")(LOAD"graph0"))))(DEFUN QQ#()(COND((NOT(FINDFILE"$summary.dat"))(PRINC"\nCan't find test summary data file: $SUMMARY.DAT"))(T(SETQ Q@#"gr2")(LOAD"graph01"))))